home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 7 / Apprentice-Release7.iso / Environments / Clean 1.2.4 / IOInterface / event.dcl < prev    next >
Encoding:
Modula Definition  |  1995-03-31  |  306 b   |  17 lines  |  [TEXT/3PRM]
  1. definition module event;
  2.  
  3. //    Version 0.8 to 1.0
  4.  
  5. import    mac_types;
  6.  
  7.  
  8. ::    *EVENTS;
  9.  
  10. //    Access-rules on EVENTS:
  11.  
  12. OpenEvents        :: !*World -> (!EVENTS, !*World);
  13. CloseEvents        :: !EVENTS !*World -> *World;
  14. EmptyEVENTS        :: *EVENTS;
  15. IsEmptyEVENTS    :: EVENTS -> Bool;
  16. GetEvent        :: !Int !Toolbox -> (!Event,!Toolbox);
  17.